procedure reticulado;

var vv:integer;

          begin
             Inicia_Tela;
             window(InitX,InitY,FinX,FinY);
             setwritemode(1);
             setcolor(8);
             setBkcolor(1);
             setLineStyle(dottedLn,0,NormWidth);
             for vv:=0 to NumColunas-1 do begin
              for v:=1 to NumLinhas do
              line(initx+round(vv*(Finx-Initx)/NumColunas),inity+round(((Finy-inity)/NumLinhas)*v),InitX+2
              +round(vv*(Finx-Initx)/NumColunas),inity+round(((Finy-inity)/NumLinhas)*v));
              end;
              for v:=1 to NumLinhas do
             line(initx,inity+round(((Finy-inity)/NumLinhas)*v),InitX+8,inity+round(((Finy-inity)/NumLinhas)*v));
             for v:=1 to Numcolunas do
              line(initx+round(v*(Finx-Initx)/NumColunas),inity,initx+round(v*(Finx-Initx)/NumColunas),InitY+8);
             setLineStyle(solidLn,0,NormWidth);
             setColor(14);
             rectangle(initx,inity,finx,finy);
             {line(round(initx+(finx-initx)/2),inity,initx+round((finx-initx)/2),finy);
             line(initx,inity+round((finy-inity)/2),finx,inity+round((finy-inity)/2));}
             EScalas;
             SetViewPort(initx,inity,finx,finy,clipon);
             setwritemode(1);
             SetColor(14);
         end;
